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ОТЧЕТ  О  ЛАБОРАТОРНОЙ  РАБОТЕ  №7 


ОРГАНИЗАЦИЯ  ИНТЕРФЕЙСА  ПОЛЬЗОВАТЕЛЯ  ПРИ  РЕШЕНИИ  ЧИСЛЕННЫХ  ЗАДАЧ 


по  курсу:  ИНФОРМАТИКА 


Цель  работы 

Научиться  организовывать  текстовый  интерфейс  пользователя.  Получение  навыков  написания 
программ  для  решения  численных  задач  с  текстовым  интерфейсом  пользователя 


№  варианта 

Задание 

Функция  для  демонстрационного  примера 

5 

Г 

0.05кіпі 

1.  Основное  меню 

сіеаг  аіі; 
сіс; 

икегЗіг  = 
ііте  =  -1; 

ѵесХ  =  [];  ѵесУ  =  [];  ѵес2  =  []; 

іпЯ); 

тепиЗіаІе  =  'М'; 
пехіМепиЗіаІе  =  'М'; 

\ѵьііе  (іше)  ѵк.  сот/ 1(144642 5943 

8\ѵіісЪ  тепиЗіаІе 

саке  ’М'  %Главное  меню  ѵк.сот/сІиЫ  52685050 

бікр(Тлавное  меню  §1аѵМепи'); 

сіізрС  1  -  Демонстрация  работы  программы'); 

сИзр('2  -  Расчет  угла  крена'); 

сІізрСЗ  -  Информация  о  программе  и  авторе'); 

бІ5р('4  -  Выход'); 

тепиЗіаІе  =  Мепи4; 

сіс; 

сопііпие; 

саке  '8'  %Подменю  2 

бікр('Меню  расчетов'); 

бікр(’1  -  Задать  новые  значения’); 

бікр('2  -  Возврат  в  главное  меню’); 

бікр(’3  -  Завершение  работы'); 

тепи8іаІе  =  МешдЗ; 

теіш8іаІе  =  кргіпІі'('8%к',  тепиЗіаІе); 

сіс; 

сопііпие; 

саке  'Г  %Демонстрация 

ёікрСДемонстрацня  программы'); 

[ѵесХТ,  ѵесУТ,  ѵес2Т]  =  соипіО1аѵМепи('0.05*кіп(Іл2)',  10); 
ргіпіТаЫе20(ѵесХТ,  ѵесУТ); 

бікр('Для  возврата  в  главное  меню  нажмите  любую  клавишу') 

райке; 

сіс; 

пехіМепиЗіаІе  =  ’М'; 
саке  '2'  %Расчет 

іР(ікечиа1(икег8іг,  ")  |[  Ііте  <  -1) 

тепиЗіаІе  =  Т;%Прннудительно  назначает  стадию  ввода 

пехіМешд8іаІе  =  ’2’; 

сопііпие; 

епсі 

ргіпіТаЫе20(ѵесХ,  ѵесУ); 

%Расчет  успешен. 
тепиЗіаІе  =  ’8'; 
пехіМепи8іаІе  =  '2'; 
сопііпие; 

саке  '3'  %Информация 
іпД); 

пехіМепи8іаІе  =  'М'; 
саке  ’4'  %Выход 
сіс; 

сіеаг  аіі; 
с1оке(); 

Ьгеак; 

саке  '8  Г  %Ретранслятор  с  подменю  2  до  меню  выбора 
тепиЗіаІе  =  'Г; 
сопііпие; 

саке  '82'  %Ретранслятор  с  подменю  2  до  главного  меню 


пехіМешдЗіаІе  =  'М'; 

саке  '83'  %Ретранслятор  с  подменю  2  до  меню  выхода 
пехіМешдЗіаІе  =  '4'; 
саке  Т  %  Запрашивает  данные 
■ѵѵЬіІе(Ігие) 

икег8іг  =  іприІ('Введите  б(і)  или  вектор  дискертных  значений:  'к'); 
икегЗіг  =  кіітер(икег8іг, 

Іб(~ікетр1у(к1г2ішт(икег8іг))) 

кігеМаІгіх  =  кІ2е(кІг2пит(икег8іг)); 
іб(кІ2еМаігіх(1)  >  1) 

с1ікр('Произошла  ошибка  ввода,  повторите  попытку.'); 
сопііпие; 

епсі 

ёікр('Введите  интервал  времени  между  измерениями  в  векторе.'); 
Ьгеак; 

еіке 

ёікр('Введите  время  измерения.'); 

Ьгеак; 

епё 


епё 

сіеаг  аіі; 


епё 

ііте  =  іприіТіте(); 

ёікр('Начинается  предварительный  расчет,  ожидайте.'); 

[ѵесХ,  ѵесУ,  ѵес2]  =  01аѵМепи(икег8іг,  Ііте); 

олешке'10’  ѵк.сош/ісІ446425943 

сіс* 

сіеаг  аіі;  ѵк.сот/сІиЫ  52685050 

с1оке(); 

ёікр('Критическая  ошибка.  Доложите  об  этом!'); 

Ьгеак; 

епё 

тепиЗіаІе  =  пех(Мепи8іа4е; 


2.  Подпрограмма 

Йдпсііоп  [ѵесХ  ѵесУ  ѵес2)  =  01аѵМешд(іприі8іг,  Ііте) 

%соипі  ОІаѵМепи  это  угол 

%  8уп(ах:[ѵесХ  ѵесУ  ѵес2]  =  01аѵМепи(іприі8іг,  Ііте) 

%  ѵесХ  -  вектор  значеніи  времени  I 
%  ѵесУ  -  вектор  значения  угла 
%  ѵес2  -  вектора  значения  угловой  скорости 

%  Если  во  входной  строке  вектор,  то  Ііте  -  время  между  измерениями  вектора 
%  Если  во  входной  строке  Ь(1),  то  ііте  время,  до  какого  момента  считается  интеграл 
і:Г  ( ікетріу(  Кіг2пит(іприі8іг) ) ) 

%В  строке  не  вектор,  используем  алгоритм  для  функции 

іМах  =  ііте/0.1  +  1; 

ѵесХ  =  0:0.1:1іте; 

ѵесУ(1:іМах)  =  0; 

ѵес2(1:іМах)  =  0; 

бог  і  =  1:іМах 

%Расчитываем  угловую  скорость 
I  =  ѵесХ(і); 

ѵес2(і)  =  еѵа1(іпри(8(г); 

%Расчитываем  угол 
У  =  0; 

х  =  ѵесХ(і); 
бог  1  =  0:0.01  :х 

у  =  у  +  еѵа1(іпри!8іг); 

епё 

ѵесУ(і)  =  у*0.01; 
епё 
гейнп; 

еіке 

%  Алгоритм  для  векторов 
ѵесіог  =  к1г2пит(іприі84г); 


ІМах  =  питеі(ѵесіог)  +  1 ; 


ѵесХ  =  0:Ііте:((іМах-1)*Ііте); 
ѵесУ(1:іМах)  =  0; 
ѵес2(2:іМах)  =  ѵесіог; 

Рог  і  =  1:іМах 

ѵесУ(і)  =  8итѴес1:ог(ѵес2,  1,  і)  *  Ііте;  %  Это  интеграл 

епсі 

геіигп; 

епё 

епё 

2.  Блок  схема 


ѵк.  сот/ісІ44642 5 943 
ѵк.сот/сІиЫ  52685050 


3  Вывод  программы 

а  = 


0 

0.1000 

0.2000 

0.3000 

0.4000 

0.5000 

0.6000 

0.7000 

0.8000 

0.9000 

1.0000 

0 

0.0055 

0.0209 

0.0461 

0.0809 

0.1248 

0.1775 

0.2384 

0.3069 

0.3823 

0.4639 

0 

0.0998 

0.1987 

0.2955 

0.3894 

0.4794 

0.5646 

0.6442 

0.7174 

0.7833 

0.8415 

4.  Функция  Мепи 

іипсііоп  [тепи]  =  тепи 

%іпМепи  -  Запрашивает  целочисленое  число  от  1  до  іприі 

% 

%  Зупіах:  [тепи]  =  іпМепи( 

\ѵЫ1е  (Ігие) 

зігіприі  =  іприІ('Введите  пункт  меню: 'я'); 

зігіприі  =  8Іггер(5ІгІприІ, %3амена  запятых  на  точки  для  корректной  работы  с  десятичными  дробями 

іп  =  8Іг2ёоиЫе(8ІгІприІ); 

іС(І8пап(іп)) 

ёІ8р('Ошибка  ввода.'); 
сопііпие; 
епё 

опІуРгасіРагІ  =  іп  -  Йоог(іп); 

И^опІуРгасіРагІ  ==  0)  %  Проверка  на  целочисленость 
Щіп  >=  1  &&  іп  <=  тепив) 
тепи  =  зігіприі; 
геіит; 

епё 

епё 

ёізр('Ошнбка  ввода.'); 
епё 
епё 

4.2  Вывод 
»  іприіМепи(З) 

Введите  пункт  меню:  5 


Ошибка  ввода. 

Введите  пункт  меню:  8 
Ошибка  ввода. 

Введите  пункт  меню:  2 
айв  = 

'2' 


4.  Функция  запрашивает  номер  меню 

бдпсііоп  [теіш]  =  іприітепи 

%іприіМепи  -  Запрашивает  целочисленое  число  от  1  до  іприі 
%  8упІах:  [тепи]  =  іприіМепи(тепи8) 
лѵЫІе  (Ігие) 

зігіприі  =  іприІ(’Введите  пункт  меню:  'я'); 

зігіприі  =  8Іггер(8ІгІприІ, %3амена  запятых  на  точки  для  корректной  работы  с  десятичными  дробями 
іп  =  8Іг2ёоиЫе(8ІгІприІ); 

ЩІ8пап(іп)) 

ёІ8р('Ошибка  ввода.'); 
сопііпие; 
епё 

опІуРгасіРагІ  =  іп  -  Йоог(іп); 

ЩопІуРгасіРагІ  ==  0)  %  Проверка  на  целочисленость 
іР(іп  >=  1  &&  іп  <=  тепиз) 
тепи  =  вігіприі; 
геіит; 

епё 
епё 

ёізр('Ошибка  ввода.'); 
епё 
епё 

4.2  Вывод 
»  іприіМепи(З) 

Введите  пункт  меню:  5 
Ошибка  ввода. 

Введите  пункт  меню:  8 
Ошибка  ввода. 

Введите  пункт  меню:  2 
апз  = 

’2’ 

5.  Функция  іприіТіте  запрашивает  положительное  число 
йдпсііоп  [оиі]  =  іприіТіте() 

%іпри(Тіте  -  Запрашивает  положительное  число  у  пользователя 

% 

%  8упіах:  [оиі]  =  іприіТіте() 

\ѵЫ1е(Ігие)  %Цикл 

іп  =  іприІ( 'Введите  положительное  число:  ',  У); 
іп  =  8Іггер(іп, '.'); 
ёі^іі  =  8Іг2ёоиЫе(іп); 

і?  (ізпап(ёі§іі)  ||  ёі^іі  <  0)  %Если  не  число  запрашиваем  опять 
ёІ8р('Неверный  ввод.  Повторите  попытку'); 
сопііпие; 

еізе 

оиі  =  ёі§іІ; 

геіит; 
епё 
епё 
епё 


ѵк.сот/ісІ446425943 
ѵк.сот/сІиЫ  52685050 


5.Вывод 

»  іприіТіте() 

Введите  положительное  число:  8 
Неверный  ввод.  Повторите  попытку 
Введите  положительное  число:  -3 
Неверный  ввод.  Повторите  попытку 
Введите  положительное  число:  9.9999 
апз  = 

9.9999 


6.  Листинг  вектора  и  сложения 

йдпсііоп  [8]  =  5итѴесІог(ѵесІог,  іЬе^іп,  іепё) 

%  8итѴесІог  -  Складывает  все  элементы  вектора  от  іЬедіп  до  іепё 
%  8уп(ах:  8  =  зитѴес(ог(ѵес(ог,  іЬедіп,  іепё) 

8  =  0; 

іог  і  =  іЪе§іп:іепё 

8  =  8+  ѵесіог(і); 
епё 


6.  Вывод 

»  ѵес  =  [90  -90  30  -30  9  0  16  32  -0]; 
»  8итѴесІог(ѵес,  3,  6) 
апк  = 

9 


ѵк.  сот/ісІ44642 5 943 
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